home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / S.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  862 b   |  20 lines
  1. 10  CLS
  2. 20  KEY OFF
  3. 30  COLOR 7,0
  4. 40  WIDTH 80
  5. 50  DEF SEG = 0: POKE 1050,PEEK(1052)
  6. 60  LOCATE 1,25:PRINT "S U B T R A C T I O N  T U T O R I A L"
  7. 70  LOCATE 5,2:PRINT " This will guide you through the SUBTRACTION section of M A T H  P A K."
  8. 80  LOCATE 6,2:PRINT " This section of M A T H  P A K, will allow you to subtract as many values "
  9. 90  LOCATE 7,2:PRINT "from each other as wanted."
  10. 100  LOCATE 8,2:PRINT " EXAMPLE:"
  11. 110  LOCATE 10,2:PRINT" To subtract  45 - 4 - 6 - .9 - 5 =?"
  12. 120  LOCATE 11,2:PRINT " Enter 5 for 'number of values to be subtracted', and press <RETURN>."
  13. 130  LOCATE 12,2:PRINT " Then enter 45 and press <RETURN>, enter 4 and press <RETURN>, enter 6 press"
  14. 140  LOCATE 13,2:PRINT "<RETURN>, enter .9 and press <RETURN>, and enter 5 and press <RETURN>."
  15. 150  LOCATE 15,2:PRINT " To exit to main menu at any time, enter a 0 value."
  16. 160  LOCATE 20,2:PRINT "Press the S P A C E  B A R to return to disk tutorial..."
  17. 170  S$ =INKEY$:IF S$ =" " THEN CLS:CLEAR:CHAIN"a"
  18. 180  GOTO 170
  19. 190  END
  20.